home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aan.d64
/
proc.to'file
< prev
next >
Wrap
Text File
|
2007-02-28
|
222b
|
10 lines
0010 //
0020 PROC TO'FILE(N) CLOSED
0030 USE SYSTEM
0040 DIM SCREEN$ OF 1505
0050 GETSCREEN(SCREEN$)
0060 OPEN FILE 9,"SCRN.HELP"+STR$(N),WRITE
0070 WRITE FILE 9: SCREEN$
0080 CLOSE FILE 9
0090 ENDPROC TO'FILE